function Segmentacion_Caracteres(I)
I = not(bwareaopen(not(I),500));
figure;imshow(I);title('Caracteres a Reconocer');

[L,NUM] = bwlabeln(not(I));
figure;
patente = [];
for i = 1:NUM
    subplot(1,NUM, i);
    [r,c] = find(L==i);
    %Caluculo el rectangulo que contiene al candidato 
    r_max = max(r);
    r_min = min(r);
    c_max = max(c);
    c_min = min(c);
    carac = I(r_min:r_max, c_min:c_max);
    imshow(carac);
    letra = Reconocimiento_Caracteres(carac);
    title(letra);
    patente = [patente letra];
end
patente



